
{$CLEO}
0000: 

while true
    wait 0
    Actor.StorePos($PLAYER_ACTOR, 10@, 11@, 12@)
    if 0AE1: 5@ = random_actor_near_point 10@ 11@ 12@ in_radius 100.0 find_next 1 pass_deads 0 //IF and SET                                              
    then                                                                                                                                                              
        IF NOT 5@ == -1                                                                                                                                               
        then                                                                                                                                              
            IF 056D:   actor 5@ defined                                                                                                                               
            then                                                                                                                                          
                04C4: store_coords_to 24@ 25@ 26@ from_actor $PLAYER_ACTOR with_offset 0.0 2.0 -1.5                                                                                                                                                                                            
                wait 100                                                                                                                                                                                                                                                            
                21@ = Object.Init(1598, 24@, 25@, 26@)                                                                                                                                                                                                                              
                Object.ToggleInMovingList(21@) = True                                                                                                                                                                                                                               
                08D2: object 21@ scale_model 0.1                                                                                                                                                                                                                                    
                04D9: object 21@ set_scripted_collision_check 1                                                                                                                                                                                                                     
                Object.CollisionDetection(21@) = True                                                                                                                                                                                                                               
                Object.Indestructibility(21@) = True                                                                                                                                                                                                                                
                0906: set_object 21@ mass_to 10000.0 // float
                IF 056D:   actor 5@ defined                                                                                                                               
                then                                                                                                                                                                                                                       
                19@ = Actor.Angle(5@)                                                                                                                                                                                                                                              
                0819: 20@ = actor 5@ distance_from_ground 
                end                                                                                                                                                                                                                         
                31@ = 140.1                                                                                                                                                                                                                                                         
                02F6: 29@ = sine 19@ // (float)                                                                                                                                                                                                                                     
                02F7: 30@ = cosine 19@ // (float)                                                                                                                                                                                                                                   
                006B: 29@ *= 31@ // (float)                                                                                                                                                                                                                                         
                006B: 30@ *= 31@ // (float)                                                                                                                                                                                                                                         
                29@ *= -1.0
                0400: store_coords_to 1@ 2@ 3@ from_object 21@ with_offset 0.0 0.0 0.0         
                0063: 20@ -= 3@ // (float)                                                                                                                                                                                                                                                         
                                                                                                                                                                                                                                                                         
                Object.Throw(21@, 29@, 30@, 20@)                                                                                                                                                                                                                                    
                Camera.Shake(10)                                                                                                                                                                                                                                                   
                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                    
                while true
                wait 0                                                                                                                                                                                                                                                      
                0400: store_coords_to 1@ 2@ 3@ from_object 21@ with_offset 0.0 0.0 0.0                                                                                                                                                                                              
                04D5: create_corona_at 1@ 2@ 3@ radius 8.5 type 1 flare 1 RGB 200 50 50                                                                                                                                                                                             
                095C: create_smoke_at 1@ 2@ 3@ velocity 0.0 0.0 0.0 RGBA 1.0 0.0 1.0 1.0 size 1.1 last_factor 0.1                                                                                                                                                                   
                09E5: create_flash_light_at 1@ 2@ 3@ RGB_mask 200 50 50 radius 200.0                                                                                                                                                                                                
                
                if 03CA:   object  21@ exists
                jf @5end  
                IF 056D:   actor 5@ defined                                                                                                                               
                jf @5clean                                                                                                                                                                                                                                                                 
                if or                                                                                                                                                                                                                                                               
                8474:   not actor $PLAYER_ACTOR near_object_in_cube 21@ radius 80.0 80.0 80.0 sphere 0                                                                                                                                                                                        
                04E7:   object 21@ in_water                                                                                                                                                                                                                                         
                04DA:   has_object 21@ collided                                                                                                                                                                                                                                     
                then
                
                                                                                                                                                                                                                                                                 
                    0400: store_coords_to 1@ 2@ 3@ from_object 21@ with_offset 0.0 0.0 0.0                                                                                                                                                                                              
                    0948: create_explosion_at 1@ 2@ 3@ type 10 camera_shake 0.2
                    :5clean                                                                                                                                                                                                         
                    Object.Destroy(21@)                                                                                                                                                                                                                                                 
                    Model.Destroy(1598)
                    :5end
                    end_thread
                end                                                                                                                                                                                                                                                 
                end
            end
        end
    end
end